MacTech 1 to 12

home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 02 - 1986 / 02.03 Mar 86.sit / 02.03 Mar 86 / Modula2 2-3 / resource mover / RsrcMover.MOD < prev next >
MacBinary | 1986-01-11 | 6.6 KB | [TEXT/EDIT]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	SoundTracker Module `(music/soundTracker)`	ext	Supported
`66%`	dexvert	Chip Tracker Module `(music/chipTracker)`	ext	Supported
`66%`	dexvert	Protracker Module `(music/mod)`	ext	Supported
`66%`	dexvert	Octalyser Module `(music/octalyser)`	ext	Supported
`66%`	dexvert	Star Tracker/StarTrekker Module `(music/starTracker)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	PollyTracker Module `(music/pollyTracker)`	ext	Unsupported
`1%`	dexvert	Black Viper packed music `(music/blackViperPackedMusic)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Sat Jan 11 13:52:39 1986, modified Sat Jan 11 13:52:39 1986, creator Macintosh Edit, type ASCII, 6084 bytes "RsrcMover.MOD" , at 0x1844 490 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[EDIT]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0d 52 73 72 63 4d 6f | 76 65 72 2e 4d 4f 44 00 |..RsrcMo|ver.MOD.|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 45 44 49 | 54 01 00 00 00 00 00 00 |.TEXTEDI|T.......|
|00000050| 00 00 00 00 00 17 c4 00 | 00 01 ea 9a 4c 66 f7 9a |........|....Lf..|
|00000060| 4c 66 f7 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |Lf......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 61 01 00 00 |........|....a...|
|00000080| 28 2a 20 54 6f 6d 20 54 | 61 79 6c 6f 72 0d 09 20 |(* Tom T|aylor.. |
|00000090| 33 37 30 37 20 50 6f 69 | 6e 63 69 61 6e 61 20 44 |3707 Poi|nciana D|
|000000a0| 72 2e 20 23 31 33 37 0d | 09 20 53 61 6e 74 61 20 |r. #137.|. Santa |
|000000b0| 43 6c 61 72 61 2c 20 43 | 41 20 39 35 30 35 31 0d |Clara, C|A 95051.|
|000000c0| 2a 29 0d 4d 4f 44 55 4c | 45 20 52 73 72 63 4d 6f |*).MODUL|E RsrcMo|
|000000d0| 76 65 72 3b 0d 09 28 2a | 20 54 68 69 73 20 65 78 |ver;..(*| This ex|
|000000e0| 61 6d 70 6c 65 20 70 72 | 6f 67 72 61 6d 20 64 65 |ample pr|ogram de|
|000000f0| 6d 6f 6e 73 74 72 61 74 | 65 73 0d 09 20 20 20 61 |monstrat|es..   a|
|00000100| 20 70 6f 73 73 69 62 6c | 65 20 75 73 65 20 6f 66 | possibl|e use of|
|00000110| 20 74 68 65 20 4d 6f 76 | 65 52 65 73 6f 75 72 63 | the Mov|eResourc|
|00000120| 65 73 0d 09 09 20 6d 6f | 64 75 6c 65 2e 20 49 74 |es... mo|dule. It|
|00000130| 20 61 6c 6c 6f 77 73 20 | 74 68 65 20 75 73 65 72 | allows |the user|
|00000140| 20 74 6f 20 6d 6f 76 65 | 20 0d 09 09 20 72 65 73 | to move| ... res|
|00000150| 6f 75 72 63 65 73 20 66 | 72 6f 6d 20 6f 6e 65 20 |ources f|rom one |
|00000160| 66 69 6c 65 20 74 6f 20 | 61 6e 6f 74 68 65 72 2e |file to |another.|
|00000170| 20 2a 29 0d 0d 09 49 4d | 50 4f 52 54 20 44 69 61 | *)...IM|PORT Dia|
|00000180| 6c 6f 67 4d 61 6e 61 67 | 65 72 3b 0d 0d 09 46 52 |logManag|er;...FR|
|00000190| 4f 4d 20 4d 61 63 49 6e | 74 65 72 66 61 63 65 20 |OM MacIn|terface |
|000001a0| 49 4d 50 4f 52 54 0d 09 | 09 49 6e 69 74 56 69 65 |IMPORT..|.InitVie|
|000001b0| 77 50 6f 72 74 3b 0d 09 | 09 0d 09 46 52 4f 4d 20 |wPort;..|...FROM |
|000001c0| 4d 6f 76 65 52 65 73 6f | 75 72 63 65 73 20 49 4d |MoveReso|urces IM|
|000001d0| 50 4f 52 54 0d 09 09 52 | 73 72 63 45 72 72 54 79 |PORT...R|srcErrTy|
|000001e0| 70 65 2c 20 52 73 72 63 | 45 72 72 2c 0d 09 09 4d |pe, Rsrc|Err,...M|
|000001f0| 6f 76 65 52 73 72 63 73 | 2c 20 43 6c 65 61 72 52 |oveRsrcs|, ClearR|
|00000200| 73 72 63 46 69 6c 65 3b | 0d 0d 09 46 52 4f 4d 20 |srcFile;|...FROM |
|00000210| 44 69 61 6c 6f 67 4d 61 | 6e 61 67 65 72 20 49 4d |DialogMa|nager IM|
|00000220| 50 4f 52 54 0d 09 09 47 | 65 74 4e 65 77 44 69 61 |PORT...G|etNewDia|
|00000230| 6c 6f 67 2c 20 44 69 61 | 6c 6f 67 50 74 72 2c 0d |log, Dia|logPtr,.|
|00000240| 09 09 4d 6f 64 61 6c 44 | 69 61 6c 6f 67 2c 20 44 |..ModalD|ialog, D|
|00000250| 69 73 70 6f 73 44 69 61 | 6c 6f 67 3b 0d 09 0d 09 |isposDia|log;....|
|00000260| 46 52 4f 4d 20 4d 61 63 | 53 79 73 74 65 6d 54 79 |FROM Mac|SystemTy|
|00000270| 70 65 73 20 49 4d 50 4f | 52 54 0d 09 09 4c 6f 6e |pes IMPO|RT...Lon|
|00000280| 67 43 61 72 64 2c 20 53 | 74 72 32 35 35 3b 0d 0d |gCard, S|tr255;..|
|00000290| 09 46 52 4f 4d 20 57 69 | 6e 64 6f 77 4d 61 6e 61 |.FROM Wi|ndowMana|
|000002a0| 67 65 72 20 49 4d 50 4f | 52 54 0d 09 09 57 69 6e |ger IMPO|RT...Win|
|000002b0| 64 6f 77 50 74 72 2c 20 | 53 68 6f 77 57 69 6e 64 |dowPtr, |ShowWind|
|000002c0| 6f 77 2c 0d 09 09 47 65 | 74 4e 65 77 57 69 6e 64 |ow,...Ge|tNewWind|
|000002d0| 6f 77 3b 0d 09 0d 09 46 | 52 4f 4d 20 53 74 72 69 |ow;....F|ROM Stri|
|000002e0| 6e 67 73 20 49 4d 50 4f | 52 54 0d 09 09 53 74 72 |ngs IMPO|RT...Str|
|000002f0| 4d 6f 64 54 6f 4d 61 63 | 2c 20 53 74 72 43 61 74 |ModToMac|, StrCat|
|00000300| 2c 0d 09 09 53 74 72 4d | 61 63 54 6f 4d 6f 64 2c |,...StrM|acToMod,|
|00000310| 20 53 74 72 43 70 79 3b | 0d 0d 09 46 52 4f 4d 20 | StrCpy;|...FROM |
|00000320| 50 61 63 6b 61 67 65 4d | 61 6e 61 67 65 72 20 49 |PackageM|anager I|
|00000330| 4d 50 4f 52 54 0d 09 09 | 53 46 52 65 70 6c 79 2c |MPORT...|SFReply,|
|00000340| 20 53 46 54 79 70 65 4c | 69 73 74 2c 20 53 46 47 | SFTypeL|ist, SFG|
|00000350| 65 74 46 69 6c 65 3b 0d | 09 0d 09 46 52 4f 4d 20 |etFile;.|...FROM |
|00000360| 51 75 69 63 6b 44 72 61 | 77 31 20 49 4d 50 4f 52 |QuickDra|w1 IMPOR|
|00000370| 54 0d 09 09 50 6f 69 6e | 74 2c 20 53 65 74 50 6f |T...Poin|t, SetPo|
|00000380| 72 74 2c 0d 09 09 54 65 | 78 74 46 6f 6e 74 3b 0d |rt,...Te|xtFont;.|
|00000390| 09 0d 09 46 52 4f 4d 20 | 46 69 6c 65 4d 61 6e 61 |...FROM |FileMana|
|000003a0| 67 65 72 20 49 4d 50 4f | 52 54 0d 09 09 53 65 74 |ger IMPO|RT...Set|
|000003b0| 56 6f 6c 3b 0d 09 09 0d | 09 46 52 4f 4d 20 52 65 |Vol;....|.FROM Re|
|000003c0| 73 6f 75 72 63 65 4d 61 | 6e 61 67 65 72 20 49 4d |sourceMa|nager IM|
|000003d0| 50 4f 52 54 0d 09 09 4f | 70 65 6e 52 65 73 46 69 |PORT...O|penResFi|
|000003e0| 6c 65 2c 20 52 65 73 45 | 72 72 6f 72 2c 0d 09 09 |le, ResE|rror,...|
|000003f0| 43 6c 6f 73 65 52 65 73 | 46 69 6c 65 3b 0d 0d 09 |CloseRes|File;...|
|00000400| 46 52 4f 4d 20 53 59 53 | 54 45 4d 20 49 4d 50 4f |FROM SYS|TEM IMPO|
|00000410| 52 54 0d 09 09 41 44 52 | 3b 0d 0d 09 46 52 4f 4d |RT...ADR|;...FROM|
|00000420| 20 4e 75 6d 43 6f 6e 76 | 65 72 73 69 6f 6e 73 20 | NumConv|ersions |
|00000430| 49 4d 50 4f 52 54 0d 09 | 09 49 6e 74 54 6f 53 74 |IMPORT..|.IntToSt|
|00000440| 72 3b 0d 0d 09 56 41 52 | 0d 09 09 62 65 68 69 6e |r;...VAR|...behin|
|00000450| 64 20 3a 20 4c 6f 6e 67 | 43 61 72 64 3b 0d 0d 09 |d : Long|Card;...|
|00000460| 4d 4f 44 55 4c 45 20 44 | 69 61 6c 6f 67 48 61 6e |MODULE D|ialogHan|
|00000470| 64 6c 65 72 3b 0d 09 28 | 2a 20 54 68 69 73 20 69 |dler;..(|* This i|
|00000480| 6e 74 65 72 6e 61 6c 20 | 6d 6f 64 75 6c 65 20 65 |nternal |module e|
|00000490| 78 70 6f 72 74 73 0d 09 | 09 20 70 72 6f 63 65 64 |xports..|. proced|
|000004a0| 75 72 65 73 20 74 68 61 | 74 20 64 69 73 70 6c 61 |ures tha|t displa|
|000004b0| 79 0d 09 09 20 6d 65 73 | 73 61 67 65 73 20 69 6e |y... mes|sages in|
|000004c0| 20 64 69 61 6c 6f 67 20 | 62 6f 78 65 73 20 6f 6e | dialog |boxes on|
|000004d0| 0d 09 09 20 74 68 65 20 | 73 63 72 65 65 6e 2e 20 |... the |screen. |
|000004e0| 2a 29 0d 09 20 20 20 0d | 09 09 49 4d 50 4f 52 54 |*)..   .|..IMPORT|
|000004f0| 0d 09 09 09 57 69 6e 64 | 6f 77 50 74 72 2c 20 62 |....Wind|owPtr, b|
|00000500| 65 68 69 6e 64 2c 0d 09 | 09 09 53 74 72 32 35 35 |ehind,..|..Str255|
|00000510| 2c 20 53 74 72 4d 6f 64 | 54 6f 4d 61 63 2c 0d 09 |, StrMod|ToMac,..|
|00000520| 09 09 53 68 6f 77 57 69 | 6e 64 6f 77 2c 20 49 6e |..ShowWi|ndow, In|
|00000530| 74 54 6f 53 74 72 2c 0d | 09 09 09 53 74 72 43 61 |tToStr,.|...StrCa|
|00000540| 74 2c 20 53 74 72 43 70 | 79 3b 0d 09 09 0d 09 09 |t, StrCp|y;......|
|00000550| 46 52 4f 4d 20 44 69 61 | 6c 6f 67 4d 61 6e 61 67 |FROM Dia|logManag|
|00000560| 65 72 20 49 4d 50 4f 52 | 54 0d 09 09 09 47 65 74 |er IMPOR|T....Get|
|00000570| 4e 65 77 44 69 61 6c 6f | 67 2c 20 44 69 61 6c 6f |NewDialo|g, Dialo|
|00000580| 67 50 74 72 2c 0d 09 09 | 09 50 61 72 61 6d 54 65 |gPtr,...|.ParamTe|
|00000590| 78 74 2c 20 44 72 61 77 | 44 69 61 6c 6f 67 3b 0d |xt, Draw|Dialog;.|
|000005a0| 09 0d 09 09 45 58 50 4f | 52 54 0d 09 09 09 53 68 |....EXPO|RT....Sh|
|000005b0| 6f 77 4d 65 73 73 61 67 | 65 2c 0d 09 09 09 53 68 |owMessag|e,....Sh|
|000005c0| 6f 77 45 72 72 6f 72 4d | 65 73 73 61 67 65 3b 0d |owErrorM|essage;.|
|000005d0| 09 09 0d 09 09 43 4f 4e | 53 54 0d 09 09 09 64 69 |.....CON|ST....di|
|000005e0| 61 6c 6f 67 49 44 20 3d | 20 39 37 38 3b 20 28 2a |alogID =| 978; (*|
|000005f0| 20 52 65 73 6f 75 72 63 | 65 20 49 44 20 6f 66 20 | Resourc|e ID of |
|00000600| 64 69 61 6c 6f 67 20 2a | 29 0d 0d 09 09 56 41 52 |dialog *|)....VAR|
|00000610| 0d 09 09 09 64 50 74 72 | 20 3a 20 44 69 61 6c 6f |....dPtr| : Dialo|
|00000620| 67 50 74 72 3b 20 28 2a | 20 50 6f 69 6e 74 65 72 |gPtr; (*| Pointer|
|00000630| 20 74 6f 20 74 68 65 20 | 64 69 61 6c 6f 67 0d 09 | to the |dialog..|
|00000640| 09 09 09 09 09 09 09 09 | 09 09 09 09 20 62 6f 78 |........|.... box|
|00000650| 20 2a 29 0d 09 09 09 0d | 09 09 50 52 4f 43 45 44 | *).....|..PROCED|
|00000660| 55 52 45 20 53 68 6f 77 | 4d 65 73 73 61 67 65 28 |URE Show|Message(|
|00000670| 6d 73 67 20 3a 20 41 52 | 52 41 59 20 4f 46 20 43 |msg : AR|RAY OF C|
|00000680| 48 41 52 29 3b 0d 09 09 | 28 2a 20 53 68 6f 77 4d |HAR);...|(* ShowM|
|00000690| 65 73 73 61 67 65 20 64 | 69 73 70 6c 61 79 73 20 |essage d|isplays |
|000006a0| 61 20 6d 65 73 73 61 67 | 65 20 69 6e 20 61 20 73 |a messag|e in a s|
|000006b0| 74 61 74 69 63 0d 09 09 | 20 20 20 64 69 61 6c 6f |tatic...|   dialo|
|000006c0| 67 20 62 6f 78 20 2a 29 | 0d 09 09 09 56 41 52 0d |g box *)|....VAR.|
|000006d0| 09 09 09 09 73 20 3a 20 | 53 74 72 32 35 35 3b 0d |....s : |Str255;.|
|000006e0| 09 09 42 45 47 49 4e 0d | 09 09 09 53 74 72 4d 6f |..BEGIN.|...StrMo|
|000006f0| 64 54 6f 4d 61 63 28 73 | 2c 6d 73 67 29 3b 20 20 |dToMac(s|,msg);  |
|00000700| 20 20 28 2a 20 43 6f 6e | 76 65 72 74 20 74 6f 20 |  (* Con|vert to |
|00000710| 53 74 72 32 35 35 20 2a | 29 0d 09 09 09 50 61 72 |Str255 *|)....Par|
|00000720| 61 6d 54 65 78 74 28 73 | 2c 27 27 2c 27 27 2c 27 |amText(s|,'','','|
|00000730| 27 29 3b 20 28 2a 20 53 | 74 69 63 6b 20 74 68 65 |'); (* S|tick the|
|00000740| 20 6d 73 67 20 69 6e 20 | 74 68 65 0d 09 09 09 09 | msg in |the.....|
|00000750| 09 09 09 09 09 09 09 09 | 09 09 09 09 64 69 61 6c |........|....dial|
|00000760| 6f 67 20 62 6f 78 20 2a | 29 0d 09 09 09 53 68 6f |og box *|)....Sho|
|00000770| 77 57 69 6e 64 6f 77 28 | 64 50 74 72 29 3b 09 09 |wWindow(|dPtr);..|
|00000780| 09 20 28 2a 20 44 69 73 | 70 6c 61 79 20 74 68 65 |. (* Dis|play the|
|00000790| 20 77 69 6e 64 6f 77 0d | 09 09 09 09 09 09 09 09 | window.|........|
|000007a0| 09 09 09 09 09 09 09 09 | 69 66 20 69 74 27 73 20 |........|if it's |
|000007b0| 6e 6f 74 20 75 70 20 2a | 29 0d 09 09 09 44 72 61 |not up *|)....Dra|
|000007c0| 77 44 69 61 6c 6f 67 28 | 64 50 74 72 29 3b 09 09 |wDialog(|dPtr);..|
|000007d0| 09 20 28 2a 20 46 6f 72 | 63 65 20 74 68 65 20 64 |. (* For|ce the d|
|000007e0| 69 61 6c 6f 67 0d 09 09 | 09 09 09 09 09 09 09 09 |ialog...|........|
|000007f0| 09 09 09 09 09 09 69 6e | 66 6f 20 74 6f 20 62 65 |......in|fo to be|
|00000800| 20 64 72 61 77 6e 20 2a | 29 0d 09 09 45 4e 44 20 | drawn *|)...END |
|00000810| 53 68 6f 77 4d 65 73 73 | 61 67 65 3b 0d 0d 09 09 |ShowMess|age;....|
|00000820| 50 52 4f 43 45 44 55 52 | 45 20 53 68 6f 77 45 72 |PROCEDUR|E ShowEr|
|00000830| 72 6f 72 4d 65 73 73 61 | 67 65 28 6d 73 67 20 3a |rorMessa|ge(msg :|
|00000840| 20 41 52 52 41 59 20 4f | 46 20 43 48 41 52 3b 0d | ARRAY O|F CHAR;.|
|00000850| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 20 |........|....... |
|00000860| 65 72 72 6f 72 20 3a 20 | 49 4e 54 45 47 45 52 29 |error : |INTEGER)|
|00000870| 3b 0d 09 09 28 2a 20 53 | 68 6f 77 45 72 72 6f 72 |;...(* S|howError|
|00000880| 4d 65 73 73 61 67 65 20 | 69 73 20 74 68 65 20 73 |Message |is the s|
|00000890| 61 6d 65 20 61 73 20 53 | 68 6f 77 4d 65 73 73 61 |ame as S|howMessa|
|000008a0| 67 65 0d 09 09 20 20 20 | 65 78 63 65 70 74 20 74 |ge...   |except t|
|000008b0| 68 61 74 20 61 6e 20 69 | 6e 74 65 67 65 72 20 65 |hat an i|nteger e|
|000008c0| 72 72 6f 72 20 6d 65 73 | 73 61 67 65 20 6e 75 6d |rror mes|sage num|
|000008d0| 62 65 72 0d 09 09 09 20 | 69 73 20 61 6c 73 6f 20 |ber.... |is also |
|000008e0| 64 69 73 70 6c 61 79 65 | 64 20 2a 29 0d 09 09 09 |displaye|d *)....|
|000008f0| 56 41 52 0d 09 09 09 20 | 20 65 72 72 4d 73 67 20 |VAR.... | errMsg |
|00000900| 3a 20 41 52 52 41 59 20 | 5b 30 2e 2e 31 30 30 5d |: ARRAY |[0..100]|
|00000910| 20 4f 46 20 43 48 41 52 | 3b 0d 09 09 09 09 65 72 | OF CHAR|;.....er|
|00000920| 72 4e 75 6d 20 3a 20 41 | 52 52 41 59 20 5b 30 2e |rNum : A|RRAY [0.|
|00000930| 2e 37 5d 20 20 20 4f 46 | 20 43 48 41 52 3b 0d 0d |.7]   OF| CHAR;..|
|00000940| 09 09 42 45 47 49 4e 0d | 09 09 09 53 74 72 43 70 |..BEGIN.|...StrCp|
|00000950| 79 28 65 72 72 4d 73 67 | 2c 6d 73 67 29 3b 20 20 |y(errMsg|,msg);  |
|00000960| 20 20 20 20 20 20 28 2a | 20 4d 61 6b 65 20 61 20 |      (*| Make a |
|00000970| 6c 6f 63 61 6c 20 63 6f | 70 79 0d 09 09 09 09 09 |local co|py......|
|00000980| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 6f 66 20 |........|.....of |
|00000990| 74 68 65 20 73 74 72 69 | 6e 67 20 2a 29 0d 09 09 |the stri|ng *)...|
|000009a0| 09 53 74 72 43 61 74 28 | 65 72 72 4d 73 67 2c 27 |.StrCat(|errMsg,'|
|000009b0| 20 45 72 72 6f 72 20 3d | 20 27 29 3b 28 2a 20 41 | Error =| ');(* A|
|000009c0| 70 70 65 6e 64 20 61 20 | 6d 73 67 20 2a 29 0d 09 |ppend a |msg *)..|
|000009d0| 09 09 49 6e 74 54 6f 53 | 74 72 28 65 72 72 6f 72 |..IntToS|tr(error|
|000009e0| 2c 65 72 72 4e 75 6d 2c | 38 29 3b 09 20 28 2a 20 |,errNum,|8);. (* |
|000009f0| 43 6f 6e 76 65 72 74 20 | 74 68 65 20 6e 75 6d 20 |Convert |the num |
|00000a00| 2a 29 0d 09 09 09 53 74 | 72 43 61 74 28 65 72 72 |*)....St|rCat(err|
|00000a10| 4d 73 67 2c 65 72 72 4e | 75 6d 29 3b 20 20 20 20 |Msg,errN|um);    |
|00000a20| 20 28 2a 20 43 6f 6e 63 | 61 74 20 74 6f 20 65 6e | (* Conc|at to en|
|00000a30| 64 20 6f 66 0d 09 09 09 | 09 09 09 09 09 09 09 09 |d of....|........|
|00000a40| 09 09 09 09 09 09 09 74 | 68 65 20 6d 61 69 6e 20 |.......t|he main |
|00000a50| 6d 73 67 20 2a 29 0d 09 | 09 09 53 68 6f 77 4d 65 |msg *)..|..ShowMe|
|00000a60| 73 73 61 67 65 28 65 72 | 72 4d 73 67 29 3b 09 09 |ssage(er|rMsg);..|
|00000a70| 09 20 28 2a 20 44 69 73 | 70 6c 61 79 20 74 68 65 |. (* Dis|play the|
|00000a80| 20 6d 73 67 20 2a 29 0d | 09 09 45 4e 44 20 53 68 | msg *).|..END Sh|
|00000a90| 6f 77 45 72 72 6f 72 4d | 65 73 73 61 67 65 3b 0d |owErrorM|essage;.|
|00000aa0| 09 09 0d 09 42 45 47 49 | 4e 0d 09 09 28 2a 20 47 |....BEGI|N...(* G|
|00000ab0| 65 74 20 74 68 65 20 62 | 61 73 69 63 20 64 69 61 |et the b|asic dia|
|00000ac0| 6c 6f 67 20 62 6f 78 20 | 66 72 6f 6d 20 74 68 65 |log box |from the|
|00000ad0| 20 72 73 72 63 20 66 69 | 6c 65 20 2a 29 0d 09 09 | rsrc fi|le *)...|
|00000ae0| 64 50 74 72 20 3a 3d 20 | 47 65 74 4e 65 77 44 69 |dPtr := |GetNewDi|
|00000af0| 61 6c 6f 67 28 64 69 61 | 6c 6f 67 49 44 2c 4e 49 |alog(dia|logID,NI|
|00000b00| 4c 2c 57 69 6e 64 6f 77 | 50 74 72 28 62 65 68 69 |L,Window|Ptr(behi|
|00000b10| 6e 64 29 29 3b 0d 09 45 | 4e 44 20 44 69 61 6c 6f |nd));..E|ND Dialo|
|00000b20| 67 48 61 6e 64 6c 65 72 | 3b 0d 09 0d 09 50 52 4f |gHandler|;....PRO|
|00000b30| 43 45 44 55 52 45 20 53 | 65 6c 65 63 74 52 73 72 |CEDURE S|electRsr|
|00000b40| 63 46 69 6c 65 28 6d 73 | 67 20 3a 20 41 52 52 41 |cFile(ms|g : ARRA|
|00000b50| 59 20 4f 46 20 43 48 41 | 52 3b 0d 09 09 09 09 09 |Y OF CHA|R;......|
|00000b60| 09 09 09 56 41 52 20 66 | 69 6c 65 6e 61 6d 65 20 |...VAR f|ilename |
|00000b70| 3a 20 41 52 52 41 59 20 | 4f 46 20 43 48 41 52 3b |: ARRAY |OF CHAR;|
|00000b80| 0d 09 09 09 09 09 09 09 | 09 43 6c 65 61 72 54 68 |........|.ClearTh|
|00000b90| 65 46 69 6c 65 20 3a 20 | 42 4f 4f 4c 45 41 4e 29 |eFile : |BOOLEAN)|
|00000ba0| 3a 49 4e 54 45 47 45 52 | 3b 0d 09 20 20 28 2a 20 |:INTEGER|;..  (* |
|00000bb0| 50 75 74 20 75 70 20 74 | 68 65 20 6d 69 6e 69 2d |Put up t|he mini-|
|00000bc0| 66 69 6e 64 65 72 20 61 | 6e 64 20 6c 65 74 20 74 |finder a|nd let t|
|00000bd0| 68 65 20 75 73 65 72 0d | 09 09 20 20 20 73 65 6c |he user.|..   sel|
|00000be0| 65 63 74 20 61 20 66 69 | 6c 65 2e 20 20 52 65 74 |ect a fi|le.  Ret|
|00000bf0| 75 72 6e 73 20 74 68 65 | 20 72 65 73 6f 75 72 63 |urns the| resourc|
|00000c00| 65 20 66 69 6c 65 0d 09 | 09 09 20 49 44 20 6f 72 |e file..|.. ID or|
|00000c10| 20 7a 65 72 6f 20 69 66 | 20 74 68 65 20 75 73 65 | zero if| the use|
|00000c20| 72 20 77 61 6e 74 73 20 | 74 6f 20 63 61 6e 63 65 |r wants |to cance|
|00000c30| 6c 2e 20 2a 29 0d 09 09 | 56 41 52 0d 09 09 09 77 |l. *)...|VAR....w|
|00000c40| 68 65 72 65 20 3a 20 50 | 6f 69 6e 74 3b 0d 09 09 |here : P|oint;...|
|00000c50| 09 72 65 70 6c 79 20 3a | 20 53 46 52 65 70 6c 79 |.reply :| SFReply|
|00000c60| 3b 0d 09 09 09 74 79 70 | 65 4c 69 73 74 20 3a 20 |;....typ|eList : |
|00000c70| 53 46 54 79 70 65 4c 69 | 73 74 3b 0d 09 09 09 65 |SFTypeLi|st;....e|
|00000c80| 72 72 20 3a 20 49 4e 54 | 45 47 45 52 3b 0d 09 09 |rr : INT|EGER;...|
|00000c90| 09 73 50 74 72 20 3a 20 | 50 4f 49 4e 54 45 52 20 |.sPtr : |POINTER |
|00000ca0| 54 4f 20 53 74 72 32 35 | 35 3b 0d 09 09 09 6e 65 |TO Str25|5;....ne|
|00000cb0| 77 4d 73 67 20 3a 20 41 | 52 52 41 59 20 5b 30 2e |wMsg : A|RRAY [0.|
|00000cc0| 2e 32 30 30 5d 20 4f 46 | 20 43 48 41 52 3b 0d 09 |.200] OF| CHAR;..|
|00000cd0| 42 45 47 49 4e 0d 09 09 | 77 68 65 72 65 2e 68 20 |BEGIN...|where.h |
|00000ce0| 3a 3d 20 39 30 3b 0d 09 | 09 77 68 65 72 65 2e 76 |:= 90;..|.where.v|
|00000cf0| 20 3a 3d 20 31 32 30 3b | 0d 09 09 53 68 6f 77 4d | := 120;|...ShowM|
|00000d00| 65 73 73 61 67 65 28 6d | 73 67 29 3b 0d 09 09 6e |essage(m|sg);...n|
|00000d10| 65 77 4d 73 67 20 3a 3d | 20 22 54 68 61 74 20 66 |ewMsg :=| "That f|
|00000d20| 69 6c 65 20 64 6f 65 73 | 6e 27 74 20 68 61 76 65 |ile does|n't have|
|00000d30| 20 61 20 72 65 73 6f 75 | 72 63 65 20 66 6f 72 6b | a resou|rce fork|
|00000d40| 21 20 20 20 22 3b 0d 09 | 09 53 74 72 43 61 74 28 |!   ";..|.StrCat(|
|00000d50| 6e 65 77 4d 73 67 2c 6d | 73 67 29 3b 0d 09 09 4c |newMsg,m|sg);...L|
|00000d60| 4f 4f 50 0d 09 09 09 28 | 2a 20 50 75 74 20 75 70 |OOP....(|* Put up|
|00000d70| 20 6d 69 6e 69 2d 66 69 | 6e 64 65 72 20 2a 29 0d | mini-fi|nder *).|
|00000d80| 09 09 09 53 46 47 65 74 | 46 69 6c 65 28 77 68 65 |...SFGet|File(whe|
|00000d90| 72 65 2c 27 27 2c 4e 49 | 4c 2c 2d 31 2c 74 79 70 |re,'',NI|L,-1,typ|
|00000da0| 65 4c 69 73 74 2c 4e 49 | 4c 2c 72 65 70 6c 79 29 |eList,NI|L,reply)|
|00000db0| 3b 0d 09 09 09 57 49 54 | 48 20 72 65 70 6c 79 20 |;....WIT|H reply |
|00000dc0| 44 4f 0d 09 09 09 09 49 | 46 20 4e 4f 54 20 67 6f |DO.....I|F NOT go|
|00000dd0| 6f 64 20 54 48 45 4e 20 | 52 45 54 55 52 4e 20 30 |od THEN |RETURN 0|
|00000de0| 20 45 4e 44 3b 20 28 2a | 20 48 69 74 20 63 61 6e | END; (*| Hit can|
|00000df0| 63 65 6c 3f 20 2a 29 0d | 09 09 09 09 28 2a 20 4f |cel? *).|....(* O|
|00000e00| 70 65 6e 52 65 73 46 69 | 6c 65 20 64 6f 65 73 6e |penResFi|le doesn|
|00000e10| 27 74 20 6b 6e 6f 77 20 | 68 6f 77 20 74 6f 0d 09 |'t know |how to..|
|00000e20| 09 09 09 09 20 64 65 61 | 6c 20 77 69 74 68 20 76 |.... dea|l with v|
|00000e30| 6f 6c 75 6d 65 73 20 76 | 65 72 79 20 77 65 6c 6c |olumes v|ery well|
|00000e40| 2e 2e 2e 20 2a 29 0d 09 | 09 09 09 65 72 72 20 3a |... *)..|...err :|
|00000e50| 3d 20 53 65 74 56 6f 6c | 28 4e 49 4c 2c 76 52 65 |= SetVol|(NIL,vRe|
|00000e60| 66 4e 75 6d 29 3b 0d 09 | 09 09 09 73 50 74 72 20 |fNum);..|...sPtr |
|00000e70| 3a 3d 20 41 44 52 28 66 | 4e 61 6d 65 29 3b 0d 09 |:= ADR(f|Name);..|
|00000e80| 09 09 09 65 72 72 20 3a | 3d 20 4f 70 65 6e 52 65 |...err :|= OpenRe|
|00000e90| 73 46 69 6c 65 28 73 50 | 74 72 5e 29 3b 0d 09 09 |sFile(sP|tr^);...|
|00000ea0| 09 09 28 2a 20 53 61 76 | 65 20 74 68 65 20 66 69 |..(* Sav|e the fi|
|00000eb0| 6c 65 6e 61 6d 65 20 2a | 29 0d 09 09 09 09 53 74 |lename *|).....St|
|00000ec0| 72 4d 61 63 54 6f 4d 6f | 64 28 66 69 6c 65 6e 61 |rMacToMo|d(filena|
|00000ed0| 6d 65 2c 73 50 74 72 5e | 29 3b 0d 0d 09 09 09 09 |me,sPtr^|);......|
|00000ee0| 28 2a 20 41 73 6b 20 63 | 6c 65 61 72 20 71 75 65 |(* Ask c|lear que|
|00000ef0| 73 74 69 6f 6e 3f 20 2a | 29 0d 09 09 09 09 49 46 |stion? *|).....IF|
|00000f00| 20 28 65 72 72 20 23 20 | 2d 31 29 20 41 4e 44 20 | (err # |-1) AND |
|00000f10| 43 6c 65 61 72 54 68 65 | 46 69 6c 65 20 41 4e 44 |ClearThe|File AND|
|00000f20| 0d 09 09 09 09 09 09 45 | 72 61 73 65 51 75 65 73 |.......E|raseQues|
|00000f30| 74 69 6f 6e 28 29 20 54 | 48 45 4e 0d 09 09 09 09 |tion() T|HEN.....|
|00000f40| 09 28 2a 20 54 68 65 20 | 72 65 73 6f 75 72 63 65 |.(* The |resource|
|00000f50| 20 66 69 6c 65 20 6d 75 | 73 74 20 62 65 20 63 6c | file mu|st be cl|
|00000f60| 6f 73 65 64 0d 09 09 09 | 09 09 09 20 62 65 66 6f |osed....|... befo|
|00000f70| 72 65 20 77 65 20 63 61 | 6e 20 6f 70 65 6e 20 61 |re we ca|n open a|
|00000f80| 6e 64 20 63 6c 65 61 72 | 20 69 74 2e 20 2a 29 0d |nd clear| it. *).|
|00000f90| 09 09 09 09 09 43 6c 6f | 73 65 52 65 73 46 69 6c |.....Clo|seResFil|
|00000fa0| 65 28 65 72 72 29 3b 0d | 09 09 09 09 09 65 72 72 |e(err);.|.....err|
|00000fb0| 20 3a 3d 20 43 6c 65 61 | 72 52 73 72 63 46 69 6c | := Clea|rRsrcFil|
|00000fc0| 65 28 66 69 6c 65 6e 61 | 6d 65 29 3b 0d 09 09 09 |e(filena|me);....|
|00000fd0| 09 09 49 46 20 65 72 72 | 20 23 20 30 20 54 48 45 |..IF err| # 0 THE|
|00000fe0| 4e 0d 09 09 09 09 09 09 | 53 68 6f 77 45 72 72 6f |N.......|ShowErro|
|00000ff0| 72 4d 65 73 73 61 67 65 | 28 0d 09 27 41 6e 20 65 |rMessage|(..'An e|
|00001000| 72 72 6f 72 20 6f 63 63 | 75 72 65 64 20 77 68 69 |rror occ|ured whi|
|00001010| 6c 65 20 63 6c 65 61 72 | 69 6e 67 20 74 68 65 20 |le clear|ing the |
|00001020| 72 65 73 6f 75 72 63 65 | 20 66 69 6c 65 2e 27 2c |resource| file.',|
|00001030| 65 72 72 29 3b 0d 09 09 | 09 09 09 45 4e 44 3b 0d |err);...|...END;.|
|00001040| 09 09 09 09 09 65 72 72 | 20 3a 3d 20 4f 70 65 6e |.....err| := Open|
|00001050| 52 65 73 46 69 6c 65 28 | 73 50 74 72 5e 29 3b 20 |ResFile(|sPtr^); |
|00001060| 28 2a 20 52 65 2d 6f 70 | 65 6e 20 74 68 65 20 66 |(* Re-op|en the f|
|00001070| 69 6c 65 20 2a 29 0d 09 | 09 09 09 45 4e 44 3b 0d |ile *)..|...END;.|
|00001080| 09 09 09 09 0d 09 09 09 | 09 49 46 20 65 72 72 20 |........|.IF err |
|00001090| 23 20 2d 31 20 54 48 45 | 4e 20 52 45 54 55 52 4e |# -1 THE|N RETURN|
|000010a0| 20 65 72 72 20 45 4e 44 | 3b 0d 09 09 09 45 4e 44 | err END|;....END|
|000010b0| 3b 0d 09 09 09 28 2a 20 | 49 66 20 77 65 20 6d 61 |;....(* |If we ma|
|000010c0| 6b 65 20 69 74 20 74 6f | 20 68 65 72 65 2c 20 73 |ke it to| here, s|
|000010d0| 6f 6d 65 20 65 72 72 6f | 72 20 6f 63 63 75 72 65 |ome erro|r occure|
|000010e0| 64 2e 0d 09 09 09 20 20 | 20 50 75 74 20 75 70 20 |d.....  | Put up |
|000010f0| 61 20 6d 65 73 73 61 67 | 65 20 61 6e 64 20 62 72 |a messag|e and br|
|00001100| 69 6e 67 20 75 70 20 74 | 68 65 20 6d 69 6e 69 2d |ing up t|he mini-|
|00001110| 0d 09 09 09 09 20 66 69 | 6e 64 65 72 20 61 67 61 |..... fi|nder aga|
|00001120| 69 6e 20 2a 29 0d 09 09 | 09 53 68 6f 77 4d 65 73 |in *)...|.ShowMes|
|00001130| 73 61 67 65 28 6e 65 77 | 4d 73 67 29 3b 0d 09 09 |sage(new|Msg);...|
|00001140| 45 4e 44 3b 0d 09 45 4e | 44 20 53 65 6c 65 63 74 |END;..EN|D Select|
|00001150| 52 73 72 63 46 69 6c 65 | 3b 0d 09 0d 09 50 52 4f |RsrcFile|;....PRO|
|00001160| 43 45 44 55 52 45 20 45 | 72 61 73 65 51 75 65 73 |CEDURE E|raseQues|
|00001170| 74 69 6f 6e 28 29 3a 42 | 4f 4f 4c 45 41 4e 3b 0d |tion():B|OOLEAN;.|
|00001180| 09 20 20 43 4f 4e 53 54 | 0d 09 09 09 65 72 61 73 |.  CONST|....eras|
|00001190| 65 49 44 20 3d 20 39 37 | 39 3b 0d 09 42 45 47 49 |eID = 97|9;..BEGI|
|000011a0| 4e 0d 09 09 52 45 54 55 | 52 4e 20 53 68 6f 77 4d |N...RETU|RN ShowM|
|000011b0| 6f 64 61 6c 28 65 72 61 | 73 65 49 44 29 20 3d 20 |odal(era|seID) = |
|000011c0| 31 3b 0d 09 45 4e 44 20 | 45 72 61 73 65 51 75 65 |1;..END |EraseQue|
|000011d0| 73 74 69 6f 6e 3b 0d 09 | 0d 09 50 52 4f 43 45 44 |stion;..|..PROCED|
|000011e0| 55 52 45 20 53 68 6f 77 | 4d 6f 64 61 6c 28 69 64 |URE Show|Modal(id|
|000011f0| 20 3a 20 49 4e 54 45 47 | 45 52 29 20 3a 20 49 4e | : INTEG|ER) : IN|
|00001200| 54 45 47 45 52 3b 0d 09 | 28 2a 20 53 68 6f 77 4d |TEGER;..|(* ShowM|
|00001210| 6f 64 61 6c 20 62 72 69 | 6e 67 73 20 75 70 20 74 |odal bri|ngs up t|
|00001220| 68 65 20 64 69 61 6c 6f | 67 20 77 69 74 68 20 69 |he dialo|g with i|
|00001230| 64 0d 09 20 20 20 3d 20 | 27 69 64 27 20 61 6e 64 |d..   = |'id' and|
|00001240| 20 72 65 74 75 72 6e 73 | 20 74 68 65 20 6e 75 6d | returns| the num|
|00001250| 62 65 72 20 6f 66 20 74 | 68 65 20 0d 09 09 20 62 |ber of t|he ... b|
|00001260| 75 74 74 6f 6e 20 70 72 | 65 73 73 65 64 2e 20 2a |utton pr|essed. *|
|00001270| 29 0d 09 09 56 41 52 0d | 09 09 09 64 50 74 72 20 |)...VAR.|...dPtr |
|00001280| 3a 20 44 69 61 6c 6f 67 | 50 74 72 3b 0d 09 09 09 |: Dialog|Ptr;....|
|00001290| 69 74 65 6d 20 3a 20 49 | 4e 54 45 47 45 52 3b 0d |item : I|NTEGER;.|
|000012a0| 09 42 45 47 49 4e 0d 09 | 09 64 50 74 72 20 3a 3d |.BEGIN..|.dPtr :=|
|000012b0| 20 47 65 74 4e 65 77 44 | 69 61 6c 6f 67 28 69 64 | GetNewD|ialog(id|
|000012c0| 2c 4e 49 4c 2c 57 69 6e | 64 6f 77 50 74 72 28 62 |,NIL,Win|dowPtr(b|
|000012d0| 65 68 69 6e 64 29 29 3b | 0d 09 09 4d 6f 64 61 6c |ehind));|...Modal|
|000012e0| 44 69 61 6c 6f 67 28 4e | 49 4c 2c 69 74 65 6d 29 |Dialog(N|IL,item)|
|000012f0| 3b 0d 09 09 44 69 73 70 | 6f 73 44 69 61 6c 6f 67 |;...Disp|osDialog|
|00001300| 28 64 50 74 72 29 3b 0d | 09 09 52 45 54 55 52 4e |(dPtr);.|..RETURN|
|00001310| 20 69 74 65 6d 3b 0d 09 | 45 4e 44 20 53 68 6f 77 | item;..|END Show|
|00001320| 4d 6f 64 61 6c 3b 0d 09 | 0d 09 43 4f 4e 53 54 0d |Modal;..|..CONST.|
|00001330| 09 09 77 69 6e 64 49 44 | 20 20 3d 20 39 31 33 3b |..windID|  = 913;|
|00001340| 0d 09 09 43 68 69 63 61 | 67 6f 20 3d 20 30 3b 0d |...Chica|go = 0;.|
|00001350| 09 09 47 6f 6f 64 49 44 | 20 20 3d 20 31 30 32 33 |..GoodID|  = 1023|
|00001360| 3b 0d 09 09 42 61 64 49 | 44 20 20 20 3d 20 31 30 |;...BadI|D   = 10|
|00001370| 32 34 3b 0d 0d 09 56 41 | 52 0d 09 20 20 73 72 63 |24;...VA|R..  src|
|00001380| 2c 20 64 65 73 74 2c 20 | 65 72 72 20 3a 20 49 4e |, dest, |err : IN|
|00001390| 54 45 47 45 52 3b 0d 09 | 09 65 72 72 52 65 63 20 |TEGER;..|.errRec |
|000013a0| 3a 20 52 73 72 63 45 72 | 72 3b 0d 09 09 77 69 6e |: RsrcEr|r;...win|
|000013b0| 64 20 3a 20 57 69 6e 64 | 6f 77 50 74 72 3b 0d 09 |d : Wind|owPtr;..|
|000013c0| 09 64 65 73 74 46 69 6c | 65 20 3a 20 41 52 52 41 |.destFil|e : ARRA|
|000013d0| 59 20 5b 30 2e 2e 31 30 | 30 5d 20 4f 46 20 43 48 |Y [0..10|0] OF CH|
|000013e0| 41 52 3b 0d 0d 42 45 47 | 49 4e 0d 09 62 65 68 69 |AR;..BEG|IN..behi|
|000013f0| 6e 64 2e 68 20 3a 3d 20 | 36 35 35 33 35 3b 20 28 |nd.h := |65535; (|
|00001400| 2a 20 53 65 74 75 70 20 | 61 20 2d 31 20 4c 6f 6e |* Setup |a -1 Lon|
|00001410| 67 49 6e 74 20 2a 29 0d | 09 62 65 68 69 6e 64 2e |gInt *).|.behind.|
|00001420| 6c 20 3a 3d 20 36 35 35 | 33 35 3b 0d 0d 09 65 72 |l := 655|35;...er|
|00001430| 72 20 3a 3d 20 30 3b 20 | 28 2a 20 43 6c 65 61 72 |r := 0; |(* Clear|
|00001440| 20 74 68 65 20 65 72 72 | 6f 72 20 72 65 6d 65 6d | the err|or remem|
|00001450| 62 65 72 65 72 20 2a 29 | 0d 09 73 72 63 20 3a 3d |berer *)|..src :=|
|00001460| 20 53 65 6c 65 63 74 52 | 73 72 63 46 69 6c 65 28 | SelectR|srcFile(|
|00001470| 27 53 65 6c 65 63 74 20 | 61 20 73 6f 75 72 63 65 |'Select |a source|
|00001480| 20 66 69 6c 65 2e 2e 2e | 27 2c 64 65 73 74 46 69 | file...|',destFi|
|00001490| 6c 65 2c 46 41 4c 53 45 | 29 3b 0d 09 49 46 20 73 |le,FALSE|);..IF s|
|000014a0| 72 63 20 23 20 30 20 54 | 48 45 4e 0d 09 09 64 65 |rc # 0 T|HEN...de|
|000014b0| 73 74 20 3a 3d 20 53 65 | 6c 65 63 74 52 73 72 63 |st := Se|lectRsrc|
|000014c0| 46 69 6c 65 28 27 53 65 | 6c 65 63 74 20 61 20 64 |File('Se|lect a d|
|000014d0| 65 73 74 69 6e 61 74 69 | 6f 6e 20 66 69 6c 65 2e |estinati|on file.|
|000014e0| 2e 2e 27 2c 64 65 73 74 | 46 69 6c 65 2c 54 52 55 |..',dest|File,TRU|
|000014f0| 45 29 3b 0d 09 09 49 46 | 20 64 65 73 74 20 23 20 |E);...IF| dest # |
|00001500| 30 20 54 48 45 4e 0d 09 | 09 09 54 65 78 74 46 6f |0 THEN..|..TextFo|
|00001510| 6e 74 28 43 68 69 63 61 | 67 6f 29 3b 20 28 2a 20 |nt(Chica|go); (* |
|00001520| 2e 2e 2e 74 6f 20 6d 61 | 6b 65 20 74 68 65 20 77 |...to ma|ke the w|
|00001530| 69 6e 64 6f 77 20 74 69 | 74 6c 65 0d 09 09 09 09 |indow ti|tle.....|
|00001540| 09 09 09 09 09 09 09 09 | 09 20 20 63 6f 6d 65 20 |........|.  come |
|00001550| 75 70 20 77 69 74 68 20 | 74 68 65 20 72 69 67 68 |up with |the righ|
|00001560| 74 20 66 6f 6e 74 20 2a | 29 0d 09 09 09 28 2a 20 |t font *|)....(* |
|00001570| 42 72 69 6e 67 20 75 70 | 20 61 20 77 69 6e 64 6f |Bring up| a windo|
|00001580| 77 20 74 6f 20 73 68 6f | 77 20 74 68 65 20 72 65 |w to sho|w the re|
|00001590| 73 6f 75 72 63 65 20 63 | 6f 70 79 0d 09 09 09 20 |source c|opy.... |
|000015a0| 20 20 69 6e 66 6f 72 6d | 61 74 69 6f 6e 20 2a 29 |  inform|ation *)|
|000015b0| 0d 09 09 09 77 69 6e 64 | 20 3a 3d 20 47 65 74 4e |....wind| := GetN|
|000015c0| 65 77 57 69 6e 64 6f 77 | 28 77 69 6e 64 49 44 2c |ewWindow|(windID,|
|000015d0| 4e 49 4c 2c 57 69 6e 64 | 6f 77 50 74 72 28 62 65 |NIL,Wind|owPtr(be|
|000015e0| 68 69 6e 64 29 29 3b 0d | 09 09 09 53 65 74 50 6f |hind));.|...SetPo|
|000015f0| 72 74 28 77 69 6e 64 29 | 3b 0d 09 09 09 49 6e 69 |rt(wind)|;....Ini|
|00001600| 74 56 69 65 77 50 6f 72 | 74 3b 20 20 28 2a 20 4d |tViewPor|t;  (* M|
|00001610| 61 6b 65 20 4d 6f 64 75 | 6c 61 2d 32 20 61 77 61 |ake Modu|la-2 awa|
|00001620| 72 65 20 6f 66 20 74 68 | 65 20 77 69 6e 64 6f 77 |re of th|e window|
|00001630| 20 2a 29 0d 09 09 09 28 | 2a 20 4e 6f 77 20 64 6f | *)....(|* Now do|
|00001640| 20 74 68 65 20 77 6f 72 | 6b 2e 2e 2e 20 2a 29 0d | the wor|k... *).|
|00001650| 09 09 09 4d 6f 76 65 52 | 73 72 63 73 28 73 72 63 |...MoveR|srcs(src|
|00001660| 2c 64 65 73 74 2c 54 52 | 55 45 2c 46 41 4c 53 45 |,dest,TR|UE,FALSE|
|00001670| 2c 65 72 72 52 65 63 29 | 3b 0d 09 09 09 65 72 72 |,errRec)|;....err|
|00001680| 20 3a 3d 20 49 4e 54 45 | 47 45 52 28 65 72 72 52 | := INTE|GER(errR|
|00001690| 65 63 2e 65 72 72 54 79 | 70 65 29 3b 20 28 2a 20 |ec.errTy|pe); (* |
|000016a0| 65 72 72 6f 72 20 6f 63 | 63 75 72 3f 20 2a 29 0d |error oc|cur? *).|
|000016b0| 09 09 09 43 41 53 45 20 | 65 72 72 52 65 63 2e 65 |...CASE |errRec.e|
|000016c0| 72 72 54 79 70 65 20 4f | 46 0d 09 09 09 09 6e 6f |rrType O|F.....no|
|000016d0| 52 73 72 63 45 72 72 6f | 72 3a 0d 09 09 09 7c 20 |RsrcErro|r:....| |
|000016e0| 64 75 70 6c 69 63 61 74 | 65 52 73 72 63 3a 0d 09 |duplicat|eRsrc:..|
|000016f0| 09 09 09 09 53 68 6f 77 | 4d 65 73 73 61 67 65 28 |....Show|Message(|
|00001700| 27 44 75 70 6c 69 63 61 | 74 65 20 72 65 73 6f 75 |'Duplica|te resou|
|00001710| 72 63 65 73 20 65 72 72 | 6f 72 21 27 29 3b 0d 09 |rces err|or!');..|
|00001720| 09 09 7c 20 6f 74 68 65 | 72 52 73 72 63 45 72 72 |..| othe|rRsrcErr|
|00001730| 6f 72 3a 0d 09 09 09 09 | 09 53 68 6f 77 45 72 72 |or:.....|.ShowErr|
|00001740| 6f 72 4d 65 73 73 61 67 | 65 28 27 41 6e 20 65 72 |orMessag|e('An er|
|00001750| 72 6f 72 20 6f 63 63 75 | 72 65 64 20 77 68 69 6c |ror occu|red whil|
|00001760| 65 20 63 6f 70 79 69 6e | 67 20 72 65 73 6f 75 72 |e copyin|g resour|
|00001770| 63 65 73 27 2c 65 72 72 | 52 65 63 2e 65 72 72 4e |ces',err|Rec.errN|
|00001780| 75 6d 29 3b 0d 09 09 09 | 45 4e 44 3b 0d 09 09 09 |um);....|END;....|
|00001790| 43 6c 6f 73 65 52 65 73 | 46 69 6c 65 28 73 72 63 |CloseRes|File(src|
|000017a0| 29 3b 20 20 28 2a 20 43 | 6c 6f 73 65 20 75 70 20 |);  (* C|lose up |
|000017b0| 2a 29 0d 09 09 09 43 6c | 6f 73 65 52 65 73 46 69 |*)....Cl|oseResFi|
|000017c0| 6c 65 28 64 65 73 74 29 | 3b 0d 09 09 09 49 46 20 |le(dest)|;....IF |
|000017d0| 65 72 72 20 3d 20 30 20 | 54 48 45 4e 0d 09 09 09 |err = 0 |THEN....|
|000017e0| 09 65 72 72 20 3a 3d 20 | 53 68 6f 77 4d 6f 64 61 |.err := |ShowModa|
|000017f0| 6c 28 47 6f 6f 64 49 44 | 29 3b 0d 09 09 09 45 4c |l(GoodID|);....EL|
|00001800| 53 45 0d 09 09 09 09 65 | 72 72 20 3a 3d 20 53 68 |SE.....e|rr := Sh|
|00001810| 6f 77 4d 6f 64 61 6c 28 | 42 61 64 49 44 29 3b 0d |owModal(|BadID);.|
|00001820| 09 09 09 45 4e 44 3b 0d | 09 09 45 4e 44 3b 0d 09 |...END;.|..END;..|
|00001830| 45 4e 44 3b 0d 45 4e 44 | 20 52 73 72 63 4d 6f 76 |END;.END| RsrcMov|
|00001840| 65 72 2e 0d 00 00 00 00 | 00 00 00 00 00 00 00 00 |er......|........|
|00001850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001880| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 d4 |........|........|
|00001890| 4f 26 00 0c 4f 22 00 18 | 4f 1e 00 1c 4f 17 00 01 |O&..O"..|O...O...|
|000018a0| 4f 10 00 02 4f 10 00 03 | 4f 10 00 04 4f 10 00 05 |O...O...|O...O...|
|000018b0| 0d 52 73 72 63 4d 6f 76 | 65 72 2e 4d 4f 44 02 00 |.RsrcMov|er.MOD..|
|000018c0| 00 00 54 45 58 54 45 44 | 49 54 01 00 00 00 01 09 |..TEXTED|IT......|
|000018d0| 00 00 54 45 58 54 45 44 | 49 54 01 00 00 00 01 09 |..TEXTED|IT......|
|000018e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018f0| 00 00 99 c1 53 f7 00 00 | 17 c4 00 00 01 ea 00 19 |....S...|........|
|00001900| 4f 10 00 1a 4f 10 00 1b | 4f 10 00 1c 4f 10 00 1d |O...O...|O...O...|
|00001910| 4f 10 00 1e 4f 10 00 1f | 4f 10 00 20 4f 10 00 21 |O...O...|O.. O..!|
|00001920| 4f 10 00 22 4f 17 00 22 | 4f 10 00 23 4f 10 00 24 |O.."O.."|O..#O..$|
|00001930| 4f 10 00 25 4f 10 00 26 | 4f 10 00 27 4f 10 00 28 |O..%O..&|O..'O..(|
|00001940| 4f 10 00 29 4f 10 00 2a | 4f 10 00 2b 4f 10 00 2c |O..)O..*|O..+O..,|
|00001950| 4f 10 00 2d 4f 10 00 2e | 4f 10 00 2f 4f 10 00 30 |O..-O...|O../O..0|
|00001960| 4f 10 00 31 4f 10 00 32 | 4f 10 00 33 4f 10 00 34 |O..1O..2|O..3O..4|
|00001970| 4f 10 00 35 4f 10 00 36 | 4f 10 00 37 4f 10 00 38 |O..5O..6|O..7O..8|
|00001980| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f 2d 00 00 |.......M|onaco-..|
|00001990| 00 04 00 06 00 02 00 00 | 01 00 00 00 01 16 00 00 |........|........|
|000019a0| 00 16 00 00 00 d4 00 00 | cc 1c 00 7a 00 00 00 1c |........|...z....|
|000019b0| 00 46 00 01 45 46 4e 54 | 00 00 00 12 45 54 41 42 |.F..EFNT|....ETAB|
|000019c0| 00 00 00 1e 03 eb 00 00 | 00 00 00 00 00 01 6e d4 |........|......n.|
|000019d0| 03 ec 00 47 00 00 00 0e | 00 01 6e fc 46 4f 42 4a |...G....|..n.FOBJ|
|000019e0| ff ff ff ff 00 07 69 f6 | 00 07 6a 1e 00 07 6a 48 |......i.|..j...jH|
|000019f0| 00 07 6a 68 00 07 6a 7a | 00 07 6a 8c 00 40 01 b6 |..jh..jz|..j..@..|
|00001a00| 00 07 67 d6 00 07 75 e8 | 00 07 6a 9e 00 40 01 be |..g...u.|..j..@..|
|00001a10| 00 40 01 be 00 40 01 be | 00 40 01 be 00 40 01 be |.@...@..|.@...@..|
|00001a20| 00 40 01 46 4f 42 4a ff | ff ff ff 00 07 69 f6 00 |.@.FOBJ.|.....i..|
|00001a30| 07 6a 1e 00 07 6a 48 00 | 07 6a 68 00 07 6a 7a 00 |.j...jH.|.jh..jz.|
|00001a40| 07 6a 8c 00 40 01 b6 00 | 07 67 d6 00 07 75 e8 00 |.j..@...|.g...u..|
|00001a50| 07 6a 9e 00 40 01 be 00 | 40 01 be 00 40 01 be 00 |.j..@...|@...@...|
|00001a60| 40 01 be 00 40 01 be 00 | 40 01 00 00 00 00 00 00 |@...@...|@.......|
|00001a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+